
module Controllers.WebService where

import State.Database(ProblemInfo)
import Happstack.Server(Response, toResponse)
import Text.JSON
import State.Json()

problemsService :: [ProblemInfo] -> Response
problemsService = toResponse . encode . showJSONs
